This sample code shows the use of the OpenReport Method (Application Object). Modify the following sample code to fit your needs.
Dim crystlApplication As CRPEAuto.Application
Dim crystlReport As CRPEAuto.Report
Function OpenReport(ReportFileName As String) As Object
Set crystlApplication = CreateObject("Crystal.CRPE.Application")
Set crystlReport = crystlApplication.OpenReport(ReportFileName)
End Function
Private Sub Command1_Click()
OpenReport ("c:\crw\reports\xtreme\wwsales.rpt")
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |